function plotResultsGoalsHistogram(filename)

COLUMN_GOAL_YELLOW = 1;
COLUMN_GOAL_BLUE = 2;


rawData = load ('-ascii',filename);

goalsYellow = rawData(:,COLUMN_GOAL_YELLOW);
goalsBlue = rawData(:,COLUMN_GOAL_BLUE);
y = goalsYellow - goalsBlue;
maxVal = max(abs(y));
bins = -maxVal:1:maxVal;
hist(y, bins)
h = findobj(gca,'Type','patch');
r = 138; g = 59; b = 255;
set(h,'FaceColor',[r/255,g/255,b/255],'EdgeColor','k')
xlabel('goals difference (yellow score - blue score)','FontName','Tahoma', 'fontsize',32)
%ylabel('quantity','fontsize',20,'FontName','Tahoma', 'fontsize',36,'rotation',0)
set (gca,'FontSize',32,'FontName','Tahoma')
%set (get(gca,'YLabel'),'FontName','Verdana')

print('-depsc','goalsHistogram.eps')
system('epstopdf goalsHistogram.eps')
system('pdfcrop goalsHistogram.pdf goalsHistogram.pdf')
%system('rm goalsHistogram.eps')
endfunction